home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 50.zip / BS1 part 50 / Music Mania v1.0.adf / Sources / MusicEditor1.s < prev    next >
Text File  |  1988-01-20  |  628b  |  30 lines
  1.  
  2. ;            PLAYER
  3.  
  4.  
  5. ;     ce prog ne joue que des musiques PACKEES !!
  6.  
  7. ;     faire auparavant:
  8. ;     ri  'nom de la musique PACKEE' en $3f8d4
  9. ********************************************
  10. ;     la musique est relogeable : tu peux donc 
  11. ;     faire un ri en $5f8d4 de la musik
  12. ;     et ensuite modifier les 2 JSR ci-dessous
  13. ;     qui deviendront: JSR $60000
  14. ;     et JSR $60190
  15.  
  16. org $30000
  17. load $30000
  18.     movem.l d0-d7/a0-a6,-(a7)
  19.     moveq #$00,d0            ;no de la musique (0-6)
  20.     jsr $40000            ;initialise la musique
  21.     movem.l (a7)+,d0-d7/a0-a6
  22. wa:
  23.     cmpi.b #$fe,$dff006
  24.     bne wa
  25.     jsr $40190            ;joue 1 note de la musik
  26.     btst #6,$bfe001
  27.     bne wa
  28.     move.w #$000f,$dff096
  29.     rts
  30.